0 X=RND(-TI):M=INT(RND(1)*999):N=INT(RND(1)*999):A=104:B=A:DIM T$(10):GOTO2
1 R=ABS(SIN(X)*COS(Y)*3.1415957):R=(r-INT(R))*10:P=P+1:Q=Q+1:V=55555:RETURN
2 FOR I=5 TO 9:READ T$(I):NEXT:FOR I=0 TO 4:T$(I)="NO":NEXT:POKE 53281,0
3 P=1102:Q=55374:PRINT CHR$(5):PRINT"HQQQQQQQQQQQQQACTUAL POSITION (X,Y):";A;B
4 X=A:Y=B:GOSUB 1:PRINT"ATYOUR POSITION IS ";T$(R);" SYSTEM.":PRINT"SCANNING:";
5 FOR Y=B-4TO B+4:FOR X=A-19TO A+20:GOSUB 1: IF R>5 THEN POKE P,81:POKE Q,R
6 NEXT:PRINT".";:NEXT:POKE 1283,86:POKEV,2:PRINT".":PRINT"SHIP ADDED TO MAP"
7 PRINT"DISTANCE TO CENTER", SQR((A-M)*A-M)+(B-N)*(B-N))
8 INPUT"NEW X";A:INPUT"NEW Y";B:IF A=M AND B=N THEN PRINT"CENTER REACHED":END
9 GOTO 3:DATA "AN EARTH LIKE","AN OCEAN","A RADIOACTIVE","A LAVA","A DEAD"

